home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Games / Starter / JST / Developer / sources / OSEmu / mathtrans.s < prev    next >
Encoding:
Text File  |  1999-12-03  |  30.8 KB  |  1,289 lines
  1. * $Id: mathtrans.s 1.1 1999/02/03 04:09:05 jotd Exp $
  2.  
  3. **************************************************************************
  4. *   MATHTRANS-LIBRARY                                                    *
  5. **************************************************************************
  6. **************************************************************************
  7. *   INITIALIZATION                                                       *
  8. **************************************************************************
  9.  
  10. MATHTRANSINIT    move.l    _mtrbase,d0
  11.         beq    .init
  12.         rts
  13.  
  14. .init        move.l    #-_LVOSPDiv,d0
  15.         move.l    #LIB_SIZE,D1
  16.         lea    _mtrname,a0
  17.         bsr    _InitLibrary
  18.         move.l    d0,a0
  19.         move.l    d0,_mtrbase
  20.  
  21.         patch    _LVOSPAtan(a0),SPAtan(pc)
  22.         
  23.         rts
  24.  
  25. ; IRA V1.05beta (9.6.95) (c)1993-95 Tim Ruehsen (SiliconSurfer/PHANTASM)
  26.  
  27. ABSEXECBASE    EQU    $4
  28. EXT_0003    EQU    $31290D0A
  29. EXT_0004    EQU    $FFFFFFAC
  30. EXT_0005    EQU    $FFFFFFB2
  31. EXT_0006    EQU    $FFFFFFB8
  32. EXT_0007    EQU    $FFFFFFBE
  33. EXT_0008    EQU    $FFFFFFC4
  34. EXT_0009    EQU    $FFFFFFCA
  35. EXT_000A    EQU    $FFFFFFD0
  36. EXT_000B    EQU    $FFFFFFD6
  37. EXT_000C    EQU    $FFFFFFDC
  38. EXT_000D    EQU    $FFFFFFE2
  39.  
  40.  
  41.  
  42. ROMTAG:
  43.     ILLEGAL                ;000: 4AFC
  44.     DC.L    ROMTAG            ;002: 00000000
  45.     DC.L    ENDSKIP            ;006: 00000C10
  46.     dc.w    $8125
  47.     dc.w    $0900
  48.     DC.L    LIBNAME            ;00E: 0000001A
  49.     DC.L    IDSTRING        ;012: 0000002C
  50.     DC.L    INIT+2            ;016: 00000048
  51. LIBNAME:
  52.     DC.W    $6D61            
  53.     dc.w    $7468
  54.     dc.w    $7472
  55.     dc.w    $616E
  56.     DC.W    $732E            
  57.     DC.W    $6C69            
  58.     dc.w    $6272
  59.     dc.w    $6172
  60.     DC.W    $7900            
  61. IDSTRING:
  62.     DC.W    $6D61            
  63.     dc.w    $7468
  64.     dc.w    $7472
  65.     dc.w    $616E
  66.     DC.W    $7320            
  67.     DC.W    $3337            
  68.     dc.l    $2E312028
  69.     DC.W    $3232            
  70.     DC.W    $2E31            
  71.     dc.l    $31290D0A
  72. INIT:
  73.     dc.l    $00000000
  74.     DC.W    $0022            
  75.     DC.L    FUNCTABLE        ;04C: 0000007C
  76.     DC.L    DATATABLE        ;050: 00000060
  77.     DC.L    INITFUNCTION        ;054: 00000058
  78. INITFUNCTION:
  79.     MOVE.L    A0,LAB_0015        ;058: 23C800000188
  80.     RTS                ;05E: 4E75
  81. DATATABLE:
  82.     DC.W    $A008            
  83.     dc.w    $0900
  84.     DC.W    $800A            
  85.     DC.L    LIBNAME            
  86.     dc.w    $9016
  87.     DC.W    $0001            
  88.     dc.w    $9014
  89.     DC.W    $0025            
  90.     DC.W    $A00E            
  91.     DC.W    $0600            
  92.     dc.w    $9020
  93.     dc.l    $00000000
  94. FUNCTABLE:
  95.     DC.L    OPEN            ;07C: 00000116
  96.     DC.L    CLOSE            ;080: 00000152
  97.     DC.L    EXPUNGE            ;084: 000000D4
  98.     DC.L    INITFUNCTION        ;088: 00000058
  99.     DC.L    LIBFUNC_0        ;08C: 00000456
  100.     DC.L    LIBFUNC_1        ;090: 00000460
  101.     DC.L    LIBFUNC_2        ;094: 0000046A
  102.     DC.L    LIBFUNC_3        ;098: 00000474
  103.     DC.L    LIBFUNC_4        ;09C: 0000047E
  104.     DC.L    LIBFUNC_5        ;0A0: 0000049C
  105.     DC.L    LIBFUNC_6        ;0A4: 000004A6
  106.     DC.L    LIBFUNC_7        ;0A8: 000004B0
  107.     DC.L    LIBFUNC_8        ;0AC: 000004BA
  108.     DC.L    LIBFUNC_9        ;0B0: 000004C4
  109.     DC.L    LIBFUNC_10        ;0B4: 000004D8
  110.     DC.L    LIBFUNC_11        ;0B8: 000001A8
  111.     DC.L    LIBFUNC_12        ;0BC: 000004E2
  112.     DC.L    LIBFUNC_13        ;0C0: 000004EC
  113.     DC.L    LIBFUNC_14        ;0C4: 00000442
  114.     DC.L    LIBFUNC_15        ;0C8: 0000044C
  115.     DC.L    LIBFUNC_16        ;0CC: 000004CE
  116.     DC.L    -1            
  117. EXPUNGE:
  118.     TST    32(A6)            ;0D4: 4A6E0020
  119.     BNE.S    LAB_000C        ;0D8: 6632
  120.     MOVEA.L    A6,A1            ;0DA: 224E
  121.     MOVEA.L    (A1),A0            ;0DC: 2051
  122.     MOVEA.L    4(A1),A1        ;0DE: 22690004
  123.     MOVE.L    A0,(A1)            ;0E2: 2288
  124.     MOVE.L    A1,4(A0)        ;0E4: 21490004
  125.     MOVEA.L    A6,A1            ;0E8: 224E
  126.     MOVEQ    #0,D0            ;0EA: 7000
  127.     MOVE    16(A6),D0        ;0EC: 302E0010
  128.     SUBA    D0,A1            ;0F0: 92C0
  129.     ADD    18(A6),D0        ;0F2: D06E0012
  130.     MOVE.L    A6,-(A7)        ;0F6: 2F0E
  131.     MOVEA.L    ABSEXECBASE,A6        ;0F8: 2C7900000004
  132.     JSR    -210(A6)        ;0FE: 4EAEFF2E
  133.     MOVEA.L    (A7)+,A6        ;102: 2C5F
  134.     MOVE.L    LAB_0015,D0        ;104: 203900000188
  135.     RTS                ;10A: 4E75
  136. LAB_000C:
  137.     BSET    #3,14(A6)        ;10C: 08EE0003000E
  138.     MOVEQ    #0,D0            ;112: 7000
  139.     RTS                ;114: 4E75
  140. OPEN:
  141.     BTST    #3,14(A6)        ;116: 082E0003000E
  142.     BNE.S    LAB_000F        ;11C: 6630
  143.     ADDQ    #1,32(A6)        ;11E: 526E0020
  144.     CMPI    #$0001,32(A6)        ;122: 0C6E00010020
  145.     BNE.S    LAB_000E        ;128: 6620
  146.     MOVE.L    ABSEXECBASE,LAB_0013    ;12A: 23F90000000400000180
  147.     CLR.L    -(A7)            ;134: 42A7
  148.     PEA    LAB_0016        ;136: 48790000018C
  149.     JSR    LAB_00B0        ;13C: 4EB900000C34
  150.     ADDQ.L    #8,A7            ;142: 508F
  151.     MOVE.L    D0,LAB_0014        ;144: 23C000000184
  152. LAB_000E:
  153.     MOVE.L    A6,D0            ;14A: 200E
  154.     RTS                ;14C: 4E75
  155. LAB_000F:
  156.     MOVEQ    #-1,D0            ;14E: 70FF
  157.     RTS                ;150: 4E75
  158. MATHTRCLOSE:
  159.     MOVEQ    #0,D0            ;152: 7000
  160.     SUBQ    #1,32(A6)        ;154: 536E0020
  161.     BNE.S    LAB_0011        ;158: 660C
  162.     BTST    #3,14(A6)        ;15A: 082E0003000E
  163.     BEQ.S    LAB_0011        ;160: 6704
  164.     BSR    EXPUNGE            ;162: 6100FF70
  165. LAB_0011:
  166.     MOVE.L    D0,-(A7)        ;166: 2F00
  167.     TST    32(A6)            ;168: 4A6E0020
  168.     BNE.S    LAB_0012        ;16C: 660E
  169.     MOVE.L    LAB_0014,-(A7)        ;16E: 2F3900000184
  170.     JSR    ENDSKIP            ;174: 4EB900000C10
  171.     ADDQ.L    #4,A7            ;17A: 588F
  172. LAB_0012:
  173.     MOVE.L    (A7)+,D0        ;17C: 201F
  174.     RTS                ;17E: 4E75
  175. LAB_0013:
  176.     ORI.B    #$00,D0            ;180: 00000000
  177. LAB_0014:
  178.     ORI.B    #$00,D0            ;184: 00000000
  179. LAB_0015:
  180.     ORI.B    #$00,D0            ;188: 00000000
  181. LAB_0016:
  182.     DC.W    $6D61            
  183.     dc.w    $7468
  184.     dc.w    $6666
  185.     dc.w    $702E
  186.     DC.W    $6C69            
  187.     dc.w    $6272
  188.     dc.w    $6172
  189.     DC.W    $7900            
  190. LAB_0017:
  191.     ANDI.B    #$7F,D0            ;19C: 0200007F
  192.     BSR.S    LIBFUNC_11        ;1A0: 6106
  193.     ORI.B    #$02,CCR        ;1A2: 003C0002
  194.     RTS                ;1A6: 4E75
  195. LIBFUNC_11:
  196.     MOVE.B    D0,D1            ;1A8: 1200
  197.     BEQ.S    LAB_0020        ;1AA: 6760
  198.     BMI.S    LAB_0017        ;1AC: 6BEE
  199.     MOVEM.L    D4-D6,-(A7)        ;1AE: 48E70E00
  200.     LSR.B    #1,D1            ;1B2: E209
  201.     BCC.S    LAB_0019        ;1B4: 6404
  202.     ADDQ.B    #1,D1            ;1B6: 5201
  203.     LSR.L    #1,D0            ;1B8: E288
  204. LAB_0019:
  205.     ADDI.B    #$20,D1            ;1BA: 06010020
  206.     SWAP    D1            ;1BE: 4841
  207.     MOVE    #$0017,D1        ;1C0: 323C0017
  208.     LSR.L    #7,D0            ;1C4: EE88
  209.     MOVE.L    D0,D4            ;1C6: 2800
  210.     MOVE.L    D0,D5            ;1C8: 2A00
  211.     MOVE.L    #$00200000,D6        ;1CA: 2C3C00200000
  212.     MOVE.L    #$00800000,D0        ;1D0: 203C00800000
  213.     SUB.L    D0,D4            ;1D6: 9880
  214.     SUBI.L    #$01200000,D5        ;1D8: 048501200000
  215.     BRA.S    LAB_001C        ;1DE: 600E
  216. LAB_001A:
  217.     BSET    D1,D0            ;1E0: 03C0
  218.     MOVE.L    D5,D4            ;1E2: 2805
  219. LAB_001B:
  220.     ADD.L    D4,D4            ;1E4: D884
  221.     MOVE.L    D4,D5            ;1E6: 2A04
  222.     LSR.L    #1,D6            ;1E8: E28E
  223.     SUB.L    D6,D5            ;1EA: 9A86
  224.     SUB.L    D0,D5            ;1EC: 9A80
  225. LAB_001C:
  226.     DBMI    D1,LAB_001A        ;1EE: 5BC9FFF0
  227.     DBPL    D1,LAB_001B        ;1F2: 5AC9FFF0
  228.     BLS.S    LAB_001E        ;1F6: 630A
  229. LAB_001D:
  230.     CMPI.L    #$00FFFFFF,D0        ;1F8: 0C8000FFFFFF
  231.     BEQ.S    LAB_001E        ;1FE: 6702
  232.     ADDQ.L    #1,D0            ;200: 5280
  233. LAB_001E:
  234.     LSL.L    #8,D0            ;202: E188
  235.     SWAP    D1            ;204: 4841
  236.     MOVE.B    D1,D0            ;206: 1001
  237. LAB_001F:
  238.     MOVEM.L    (A7)+,D4-D6        ;208: 4CDF0070
  239. LAB_0020:
  240.     RTS                ;20C: 4E75
  241.     DC.W    $0000            
  242. LAB_0021:
  243.     MOVE.L    D0,D7            ;210: 2E00
  244.     TST.B    D7            ;212: 4A07
  245.     JSR    LAB_00AF        ;214: 4EB900000C24
  246.     BSET    #1,D0            ;21A: 08C00001
  247.     BCLR    #3,D0            ;21E: 08800003
  248.     BRA    LAB_0031        ;222: 6000019A
  249. LAB_0022:
  250.     MOVE.L    D6,-(A7)        ;226: 2F06
  251.     MOVE.L    D3,D0            ;228: 2003
  252.     MOVE.L    #$B18D0BC3,D1        ;22A: 223CB18D0BC3
  253.     JSR    -66(A5)            ;230: 4EADFFBE
  254.     MOVE.L    D3,D1            ;234: 2203
  255.     JSR    -78(A5)            ;236: 4EADFFB2
  256.     MOVE.L    #$B350F043,D1        ;23A: 223CB350F043
  257.     JSR    -66(A5)            ;240: 4EADFFBE
  258.     MOVE.L    D0,D6            ;244: 2C00
  259.     MOVE.L    D3,D0            ;246: 2003
  260.     MOVE.L    #$812065C0,D1        ;248: 223C812065C0
  261.     JSR    -78(A5)            ;24E: 4EADFFB2
  262.     MOVE.L    #$EF166B40,D1        ;252: 223CEF166B40
  263.     JSR    -66(A5)            ;258: 4EADFFBE
  264.     MOVE.L    D3,D1            ;25C: 2203
  265.     JSR    -78(A5)            ;25E: 4EADFFB2
  266.     MOVE.L    D6,D1            ;262: 2206
  267.     JSR    -84(A5)            ;264: 4EADFFAC
  268.     MOVE.L    D5,D1            ;268: 2205
  269.     JSR    -78(A5)            ;26A: 4EADFFB2
  270.     MOVE.L    D5,D1            ;26E: 2205
  271.     JSR    -66(A5)            ;270: 4EADFFBE
  272.     MOVE.L    (A7)+,D6        ;274: 2C1F
  273.     RTS                ;276: 4E75
  274. LAB_0023:
  275.     CLR.L    D1            ;278: 4281
  276.     BRA.S    LAB_0025        ;27A: 6002
  277. LAB_0024:
  278.     MOVEQ    #1,D1            ;27C: 7201
  279. LAB_0025:
  280.     MOVEM.L    D2-D6/A5,-(A7)        ;27E: 48E73E04
  281.     MOVE.L    D1,D6            ;282: 2C01
  282.     MOVEA.L    LAB_0014,A5        ;284: 2A7900000184
  283.     MOVE.L    D7,D0            ;28A: 2007
  284.     JSR    -54(A5)            ;28C: 4EADFFCA
  285.     MOVE.L    D0,D5            ;290: 2A00
  286.     MOVE.L    #$80000040,D1        ;292: 223C80000040
  287.     JSR    -42(A5)            ;298: 4EADFFD6
  288.     BLT    LAB_0026        ;29C: 6D000052
  289.     MOVE.L    D5,D0            ;2A0: 2005
  290.     MOVE.L    #$80000041,D1        ;2A2: 223C80000041
  291.     JSR    -42(A5)            ;2A8: 4EADFFD6
  292.     BGT    LAB_0021        ;2AC: 6E00FF62
  293.     MOVEQ    #1,D4            ;2B0: 7801
  294.     SUB.L    D6,D4            ;2B2: 9886
  295.     MOVE.L    #$80000040,D0        ;2B4: 203C80000040
  296.     MOVE.L    D5,D1            ;2BA: 2205
  297.     JSR    -72(A5)            ;2BC: 4EADFFB8
  298.     MOVE.L    #$80000040,D1        ;2C0: 223C80000040
  299.     JSR    -66(A5)            ;2C6: 4EADFFBE
  300.     MOVE.L    #$80000042,D1        ;2CA: 223C80000042
  301.     JSR    -84(A5)            ;2D0: 4EADFFAC
  302.     MOVE.L    D0,D3            ;2D4: 2600
  303.     BSR    LIBFUNC_11        ;2D6: 6100FED0
  304.     MOVE.L    #$800000C2,D1        ;2DA: 223C800000C2
  305.     JSR    -78(A5)            ;2E0: 4EADFFB2
  306.     MOVE.L    D0,D5            ;2E4: 2A00
  307.     BSR    LAB_0022        ;2E6: 6100FF3E
  308.     MOVE.L    D0,D2            ;2EA: 2400
  309.     BRA    LAB_0028        ;2EC: 6000002C
  310. LAB_0026:
  311.     MOVE.L    D6,D4            ;2F0: 2806
  312.     MOVE.L    D5,D0            ;2F2: 2005
  313.     MOVE.L    #$00000000,D1        ;2F4: 223C00000000
  314.     JSR    -42(A5)            ;2FA: 4EADFFD6
  315.     BLE    LAB_0027        ;2FE: 6F000018
  316.     MOVE.L    D5,D0            ;302: 2005
  317.     MOVE.L    D5,D1            ;304: 2205
  318.     JSR    -78(A5)            ;306: 4EADFFB2
  319.     MOVE.L    D0,D3            ;30A: 2600
  320.     MOVE.L    D0,D2            ;30C: 2400
  321.     BSR    LAB_0022        ;30E: 6100FF16
  322.     MOVE.L    D0,D2            ;312: 2400
  323.     BRA    LAB_0028        ;314: 60000004
  324. LAB_0027:
  325.     MOVE.L    D5,D2            ;318: 2405
  326. LAB_0028:
  327.     TST.L    D6            ;31A: 4A86
  328.     BNE    LAB_002B        ;31C: 66000036
  329.     TST.L    D4            ;320: 4A84
  330.     BEQ    LAB_0029        ;322: 6700001A
  331.     MOVE.L    D2,D0            ;326: 2002
  332.     MOVE.L    #$C90FDB40,D1        ;328: 223CC90FDB40
  333.     JSR    -66(A5)            ;32E: 4EADFFBE
  334.     MOVE.L    #$C90FDB40,D1        ;332: 223CC90FDB40
  335.     JSR    -66(A5)            ;338: 4EADFFBE
  336.     MOVE.L    D0,D2            ;33C: 2400
  337. LAB_0029:
  338.     MOVE.L    D7,D1            ;33E: 2207
  339.     JSR    -48(A5)            ;340: 4EADFFD0
  340.     BPL    LAB_002A        ;344: 6A00000A
  341.     MOVE.L    D2,D0            ;348: 2002
  342.     JSR    -60(A5)            ;34A: 4EADFFC4
  343.     MOVE.L    D0,D2            ;34E: 2400
  344. LAB_002A:
  345.     BRA    LAB_0030        ;350: 6000005E
  346. LAB_002B:
  347.     MOVE.L    D7,D1            ;354: 2207
  348.     JSR    -48(A5)            ;356: 4EADFFD0
  349.     BMI    LAB_002D        ;35A: 6B000030
  350.     TST.L    D4            ;35E: 4A84
  351.     BEQ    LAB_002C        ;360: 6700001E
  352.     MOVE.L    #$C90FDB40,D0        ;364: 203CC90FDB40
  353.     MOVE.L    D2,D1            ;36A: 2202
  354.     JSR    -72(A5)            ;36C: 4EADFFB8
  355.     MOVE.L    #$C90FDB40,D1        ;370: 223CC90FDB40
  356.     JSR    -66(A5)            ;376: 4EADFFBE
  357.     MOVE.L    D0,D2            ;37A: 2400
  358.     BRA    LAB_0030        ;37C: 60000032
  359. LAB_002C:
  360.     MOVE.L    D2,D0            ;380: 2002
  361.     JSR    -60(A5)            ;382: 4EADFFC4
  362.     MOVE.L    D0,D2            ;386: 2400
  363.     BRA    LAB_0030        ;388: 60000026
  364. LAB_002D:
  365.     MOVE.L    D2,D0            ;38C: 2002
  366.     TST.L    D4            ;38E: 4A84
  367.     BNE    LAB_002E        ;390: 6600000A
  368.     MOVE.L    #$C90FDB41,D2        ;394: 243CC90FDB41
  369.     BRA.S    LAB_002F        ;39A: 6006
  370. LAB_002E:
  371.     MOVE.L    #$C90FDB40,D2        ;39C: 243CC90FDB40
  372. LAB_002F:
  373.     MOVE.L    D2,D1            ;3A2: 2202
  374.     JSR    -66(A5)            ;3A4: 4EADFFBE
  375.     MOVE.L    D2,D1            ;3A8: 2202
  376.     JSR    -66(A5)            ;3AA: 4EADFFBE
  377.     MOVE.L    D0,D2            ;3AE: 2400
  378. LAB_0030:
  379.     MOVE.L    D2,D7            ;3B0: 2E02
  380.     TST.B    D7            ;3B2: 4A07
  381.     JSR    LAB_00AF        ;3B4: 4EB900000C24
  382.     ANDI.B    #$F5,D0            ;3BA: 020000F5
  383. LAB_0031:
  384.     MOVE    D0,CCR            ;3BE: 44C0
  385.     MOVEM.L    (A7)+,D2-D6/A5        ;3C0: 4CDF207C
  386.     RTS                ;3C4: 4E75
  387.     DC.W    $0000            
  388.  
  389.  
  390. SECSTRT_1:
  391.     MOVEM.L    D3-D7,-(A7)        ;3C8: 48E71F00
  392.     MOVE.L    D0,D7            ;3CC: 2E00
  393.     MOVEQ    #0,D1            ;3CE: 7200
  394.     JSR    (A0)            ;3D0: 4E90
  395.     MOVEM.L    D7,-(A7)        ;3D2: 48E70100
  396.     MOVEM.L    (A7)+,D0/D3-D7        ;3D6: 4CDF00F9
  397.     RTS                ;3DA: 4E75
  398. LAB_0033:
  399.     MOVEM.L    D3-D7,-(A7)        ;3DC: 48E71F00
  400.     MOVE.L    D1,D6            ;3E0: 2C01
  401.     MOVE.L    D0,D7            ;3E2: 2E00
  402.     MOVEQ    #0,D1            ;3E4: 7200
  403.     JSR    (A0)            ;3E6: 4E90
  404.     MOVEM.L    D7,-(A7)        ;3E8: 48E70100
  405.     MOVEM.L    (A7)+,D0/D3-D7        ;3EC: 4CDF00F9
  406.     RTS                ;3F0: 4E75
  407.  
  408.  
  409.     LEA    LAB_0044,A0        ;3F2: 41F9000004F6
  410.     BRA.S    SECSTRT_1        ;3F8: 60CE
  411.     LEA    LAB_0045,A0        ;3FA: 41F9000004FE
  412.     BRA.S    SECSTRT_1        ;400: 60C6
  413.     LEA    LAB_0046,A0        ;402: 41F900000506
  414.     BRA.S    LAB_0033        ;408: 60D2
  415.     LEA    LAB_0047,A0        ;40A: 41F90000050E
  416.     BRA.S    SECSTRT_1        ;410: 60B6
  417.     LEA    LAB_0048,A0        ;412: 41F900000516
  418.     BRA.S    SECSTRT_1        ;418: 60AE
  419.     LEA    LAB_0049,A0        ;41A: 41F90000051E
  420.     BRA.S    SECSTRT_1        ;420: 60A6
  421.     LEA    LAB_004A,A0        ;422: 41F900000526
  422.     BRA.S    LAB_0033        ;428: 60B2
  423.     LEA    LAB_004B,A0        ;42A: 41F90000052E
  424.     BRA.S    LAB_0033        ;430: 60AA
  425.     LEA    LAB_004C,A0        ;432: 41F900000536
  426.     BRA.S    LAB_0033        ;438: 60A2
  427.     LEA    LAB_004D,A0        ;43A: 41F90000053E
  428.     BRA.S    LAB_0033        ;440: 609A
  429. LIBFUNC_14:    ; 
  430.     LEA    LAB_0023,A0        ;442: 41F900000278
  431.     BRA    SECSTRT_1        ;448: 6000FF7E
  432. LIBFUNC_15:    ; 
  433.     LEA    LAB_0024,A0        ;44C: 41F90000027C
  434.     BRA    SECSTRT_1        ;452: 6000FF74
  435.  
  436. SPAtan:
  437. LIBFUNC_0:    ; Atan
  438.     LEA    SECSTRT_2,A0        ;456: 41F900000578
  439.     BRA    SECSTRT_1        ;45C: 6000FF6A
  440. LIBFUNC_1:    ; Sin
  441.     LEA    LAB_005F,A0        ;460: 41F90000062A
  442.     BRA    SECSTRT_1        ;466: 6000FF60
  443. LIBFUNC_2:    ; Cos
  444.     LEA    LAB_005C,A0        ;46A: 41F900000618
  445.     BRA    SECSTRT_1        ;470: 6000FF56
  446. LIBFUNC_3:    ; Tan
  447.     LEA    LAB_005B,A0        ;474: 41F900000612
  448.     BRA    SECSTRT_1        ;47A: 6000FF4C
  449. LIBFUNC_4:    ; Sincos
  450.     LEA    SECSTRT_3,A0        ;47E: 41F90000060C
  451.     MOVEM.L    D3-D7,-(A7)        ;484: 48E71F00
  452.     MOVE.L    D0,D7            ;488: 2E00
  453.     MOVE.L    D1,-(A7)        ;48A: 2F01
  454.     MOVEQ    #0,D1            ;48C: 7200
  455.     JSR    (A0)            ;48E: 4E90
  456.     MOVEA.L    (A7)+,A0        ;490: 205F
  457.     MOVE.L    D7,(A0)            ;492: 2087
  458.     MOVE.L    D6,D0            ;494: 2006
  459.     MOVEM.L    (A7)+,D3-D7        ;496: 4CDF00F8
  460.     RTS                ;49A: 4E75
  461. LIBFUNC_5:    ; Sinh
  462.     LEA    LAB_0079,A0        ;49C: 41F9000007B8
  463.     BRA    SECSTRT_1        ;4A2: 6000FF24
  464. LIBFUNC_6:    ; Cosh
  465.     LEA    SECSTRT_4,A0        ;4A6: 41F900000784
  466.     BRA    SECSTRT_1        ;4AC: 6000FF1A
  467. LIBFUNC_7:    ; Tanh
  468.     LEA    LAB_007C,A0        ;4B0: 41F9000007F2
  469.     BRA    SECSTRT_1        ;4B6: 6000FF10
  470. LIBFUNC_8:    ; Exp
  471.     LEA    LAB_0084,A0        ;4BA: 41F900000866
  472.     BRA    SECSTRT_1        ;4C0: 6000FF06
  473. LIBFUNC_9:    ; Log
  474.     LEA    SECSTRT_6,A0        ;4C4: 41F900000940
  475.     BRA    SECSTRT_1        ;4CA: 6000FEFC
  476. LIBFUNC_16:    ; Pow
  477.     LEA    LAB_0097,A0        ;4CE: 41F900000A0C
  478.     BRA    SECSTRT_1        ;4D4: 6000FEF2
  479. LIBFUNC_10:    ; Sqrt
  480.     LEA    SECSTRT_7,A0        ;4D8: 41F900000A28
  481.     BRA    LAB_0033        ;4DE: 6000FEFC
  482. LIBFUNC_12:    ; Tieee
  483.     LEA    SECSTRT_8,A0        ;4E2: 41F900000A54
  484.     BRA    SECSTRT_1        ;4E8: 6000FEDE
  485. LIBFUNC_13:    ; Fieee
  486.     LEA    LAB_009C,A0        ;4EC: 41F900000A68
  487.     BRA    SECSTRT_1        ;4F2: 6000FED4
  488. LAB_0044:    
  489.     LEA    EXT_000D,A0        ;4F6: 41F9FFFFFFE2
  490.     BRA.S    LAB_004F        ;4FC: 6064
  491. LAB_0045:
  492.     LEA    EXT_000C,A0        ;4FE: 41F9FFFFFFDC
  493.     BRA.S    LAB_004F        ;504: 605C
  494. LAB_0046:
  495.     LEA    EXT_000B,A0        ;506: 41F9FFFFFFD6
  496.     BRA.S    LAB_004E        ;50C: 6036
  497. LAB_0047:
  498.     LEA    EXT_000A,A0        ;50E: 41F9FFFFFFD0
  499.     BRA.S    LAB_004E        ;514: 602E
  500. LAB_0048:
  501.     LEA    EXT_0009,A0        ;516: 41F9FFFFFFCA
  502.     BRA.S    LAB_004F        ;51C: 6044
  503. LAB_0049:
  504.     LEA    EXT_0008,A0        ;51E: 41F9FFFFFFC4
  505.     BRA.S    LAB_004F        ;524: 603C
  506. LAB_004A:
  507.     LEA    EXT_0007,A0        ;526: 41F9FFFFFFBE
  508.     BRA.S    LAB_004E        ;52C: 6016
  509. LAB_004B:
  510.     LEA    EXT_0006,A0        ;52E: 41F9FFFFFFB8
  511.     BRA.S    LAB_004E        ;534: 600E
  512. LAB_004C:
  513.     LEA    EXT_0005,A0        ;536: 41F9FFFFFFB2
  514.     BRA.S    LAB_004E        ;53C: 6006
  515. LAB_004D:
  516.     LEA    EXT_0004,A0        ;53E: 41F9FFFFFFAC
  517. LAB_004E:
  518.     MOVEM.L    D0-D1/A0,-(A7)        ;544: 48E7C080
  519.     ADDA.L    LAB_0014,A0        ;548: D1F900000184
  520.     MOVE.L    D6,D1            ;54E: 2206
  521.     MOVE.L    D7,D0            ;550: 2007
  522.     JSR    (A0)            ;552: 4E90
  523.     MOVEM.L    D0,-(A7)        ;554: 48E78000
  524.     MOVEM.L    (A7)+,D7        ;558: 4CDF0080
  525.     MOVEM.L    (A7)+,D0-D1/A0        ;55C: 4CDF0103
  526.     RTS                ;560: 4E75
  527. LAB_004F:
  528.     MOVEM.L    D0/A0,-(A7)        ;562: 48E78080
  529.     ADDA.L    LAB_0014,A0        ;566: D1F900000184
  530.     MOVE.L    D7,D0            ;56C: 2007
  531.     JSR    (A0)            ;56E: 4E90
  532.     MOVE.L    D0,D7            ;570: 2E00
  533.     MOVEM.L    (A7)+,D0/A0        ;572: 4CDF0101
  534.     RTS                ;576: 4E75
  535.  
  536.  
  537. SECSTRT_2:
  538.     MOVEM.L    D1-D6/A0,-(A7)        ;578: 48E77E80
  539.     MOVE.B    D7,-(A7)        ;57C: 1F07
  540.     ANDI.B    #$7F,D7            ;57E: 0207007F
  541.     MOVE.L    #$80000041,D6        ;582: 2C3C80000041
  542.     CLR.B    -(A7)            ;588: 4227
  543.     CMP.B    D6,D7            ;58A: BE06
  544.     BCS.S    LAB_0052        ;58C: 6510
  545.     BHI.S    LAB_0051        ;58E: 6204
  546.     CMP.L    D6,D7            ;590: BE86
  547.     BLS.S    LAB_0052        ;592: 630A
  548. LAB_0051:
  549.     NOT.B    (A7)            ;594: 4617
  550.     EXG    D6,D7            ;596: CD47
  551.     JSR    LAB_004D        ;598: 4EB90000053E
  552. LAB_0052:
  553.     SUBI.B    #$43,D7            ;59E: 04070043
  554.     NEG.B    D7            ;5A2: 4407
  555.     CMPI.B    #$1F,D7            ;5A4: 0C07001F
  556.     BLS.S    LAB_0053        ;5A8: 6304
  557.     MOVEQ    #0,D6            ;5AA: 7C00
  558.     BRA.S    LAB_0057        ;5AC: 6038
  559. LAB_0053:
  560.     LSR.L    D7,D7            ;5AE: EEAF
  561.     MOVEQ    #0,D6            ;5B0: 7C00
  562.     MOVE.L    #$20000000,D5        ;5B2: 2A3C20000000
  563.     LEA    LAB_00AC,A0        ;5B8: 41F900000B04
  564.     MOVEQ    #24,D1            ;5BE: 7218
  565.     MOVEQ    #1,D2            ;5C0: 7401
  566.     BRA.S    LAB_0055        ;5C2: 6006
  567. LAB_0054:
  568.     ASR.L    D2,D4            ;5C4: E4A4
  569.     ADD.L    D4,D5            ;5C6: DA84
  570.     ADD.L    (A0),D6            ;5C8: DC90
  571. LAB_0055:
  572.     MOVE.L    D7,D4            ;5CA: 2807
  573.     MOVE.L    D5,D3            ;5CC: 2605
  574.     ASR.L    D2,D3            ;5CE: E4A3
  575. LAB_0056:
  576.     SUB.L    D3,D7            ;5D0: 9E83
  577.     BPL.S    LAB_0054        ;5D2: 6AF0
  578.     MOVE.L    D4,D7            ;5D4: 2E04
  579.     ADDQ.L    #4,A0            ;5D6: 5888
  580.     ADDQ.B    #1,D2            ;5D8: 5202
  581.     LSR.L    #1,D3            ;5DA: E28B
  582.     DBF    D1,LAB_0056        ;5DC: 51C9FFF2
  583.     JSR    SECSTRT_9        ;5E0: 4EB900000AC8
  584. LAB_0057:
  585.     MOVE.L    D6,D7            ;5E6: 2E06
  586.     TST.B    (A7)+            ;5E8: 4A1F
  587.     BEQ.S    LAB_0058        ;5EA: 670C
  588.     MOVE.L    #$C90FDB41,D7        ;5EC: 2E3CC90FDB41
  589.     JSR    LAB_004B        ;5F2: 4EB90000052E
  590. LAB_0058:
  591.     MOVE.B    (A7)+,D6        ;5F8: 1C1F
  592.     TST.B    D7            ;5FA: 4A07
  593.     BEQ.S    LAB_0059        ;5FC: 6706
  594.     ANDI.B    #$80,D6            ;5FE: 02060080
  595.     OR.B    D6,D7            ;602: 8E06
  596. LAB_0059:
  597.     MOVEM.L    (A7)+,D1-D6/A0        ;604: 4CDF017E
  598.     RTS                ;608: 4E75
  599.     DC.W    $0000            
  600.  
  601.  
  602. SECSTRT_3:
  603.     MOVE    #$FFFE,-(A7)        ;60C: 3F3CFFFE
  604.     BRA.S    LAB_0061        ;610: 6024
  605. LAB_005B:
  606.     MOVE    #$FFFF,-(A7)        ;612: 3F3CFFFF
  607.     BRA.S    LAB_0060        ;616: 6014
  608. LAB_005C:
  609.     MOVE    #$0001,-(A7)        ;618: 3F3C0001
  610.     BRA.S    LAB_0061        ;61C: 6018
  611. LAB_005D:
  612.     CMPI.B    #$B8,D7            ;61E: 0C0700B8
  613.     BHI.S    LAB_0061        ;622: 6212
  614. LAB_005E:
  615.     ADDQ.L    #2,A7            ;624: 548F
  616.     TST.B    D7            ;626: 4A07
  617.     RTS                ;628: 4E75
  618. LAB_005F:
  619.     CLR    -(A7)            ;62A: 4267
  620. LAB_0060:
  621.     TST.B    D7            ;62C: 4A07
  622.     BMI.S    LAB_005D        ;62E: 6BEE
  623.     CMPI.B    #$38,D7            ;630: 0C070038
  624.     BLS.S    LAB_005E        ;634: 63EE
  625. LAB_0061:
  626.     MOVEM.L    D1-D6/A0,-(A7)        ;636: 48E77E80
  627.     MOVE.L    D7,D2            ;63A: 2407
  628.     ADD.B    D7,D7            ;63C: DE07
  629.     CMPI.B    #$8A,D7            ;63E: 0C07008A
  630.     BLS.S    LAB_0063        ;642: 6350
  631.     CMPI.B    #$A8,D7            ;644: 0C0700A8
  632.     BLS.S    LAB_0062        ;648: 630C
  633.     ORI.B    #$02,CCR        ;64A: 003C0002
  634.     MOVEM.L    (A7)+,D1-D6/A0        ;64E: 4CDF017E
  635.     ADDQ.L    #2,A7            ;652: 548F
  636.     RTS                ;654: 4E75
  637. LAB_0062:
  638.     MOVE.L    #$A2F9833E,D6        ;656: 2C3CA2F9833E
  639.     MOVE.L    D2,D7            ;65C: 2E02
  640.     JSR    LAB_004C        ;65E: 4EB900000536
  641.     MOVE.B    D7,D5            ;664: 1A07
  642.     ANDI.B    #$7F,D5            ;666: 0205007F
  643.     SUBI.B    #$58,D5            ;66A: 04050058
  644.     NEG.B    D5            ;66E: 4405
  645.     MOVEQ    #-1,D4            ;670: 78FF
  646.     CLR.B    D4            ;672: 4204
  647.     LSL.L    D5,D4            ;674: EBAC
  648.     ORI.B    #$FF,D4            ;676: 000400FF
  649.     AND.L    D4,D7            ;67A: CE84
  650.     MOVE.L    #$C90FDB43,D6        ;67C: 2C3CC90FDB43
  651.     JSR    LAB_004C        ;682: 4EB900000536
  652.     MOVE.L    D7,D6            ;688: 2C07
  653.     MOVE.L    D2,D7            ;68A: 2E02
  654.     JSR    LAB_004B        ;68C: 4EB90000052E
  655.     MOVE.L    D7,D2            ;692: 2407
  656. LAB_0063:
  657.     MOVE.L    #$0C90FDAA,D4        ;694: 283C0C90FDAA
  658.     MOVE.L    D2,D7            ;69A: 2E02
  659.     CLR.B    D7            ;69C: 4207
  660.     TST.B    D2            ;69E: 4A02
  661.     BMI.S    LAB_0066        ;6A0: 6B1A
  662.     SUBI.B    #$46,D2            ;6A2: 04020046
  663.     NEG.B    D2            ;6A6: 4402
  664.     CMPI.B    #$1F,D2            ;6A8: 0C02001F
  665.     BLS.S    LAB_0064        ;6AC: 6302
  666.     MOVEQ    #0,D7            ;6AE: 7E00
  667. LAB_0064:
  668.     LSR.L    D2,D7            ;6B0: E4AF
  669. LAB_0065:
  670.     CMP.L    D4,D7            ;6B2: BE84
  671.     BLE.S    LAB_0069        ;6B4: 6F24
  672.     SUB.L    D4,D7            ;6B6: 9E84
  673.     SUB.L    D4,D7            ;6B8: 9E84
  674.     BRA.S    LAB_0065        ;6BA: 60F6
  675. LAB_0066:
  676.     SUBI.B    #$C6,D2            ;6BC: 040200C6
  677.     NEG.B    D2            ;6C0: 4402
  678.     CMPI.B    #$1F,D2            ;6C2: 0C02001F
  679.     BLS.S    LAB_0067        ;6C6: 6302
  680.     MOVEQ    #0,D7            ;6C8: 7E00
  681. LAB_0067:
  682.     LSR.L    D2,D7            ;6CA: E4AF
  683.     NEG.L    D7            ;6CC: 4487
  684.     NEG.L    D4            ;6CE: 4484
  685. LAB_0068:
  686.     CMP.L    D4,D7            ;6D0: BE84
  687.     BGE.S    LAB_0069        ;6D2: 6C06
  688.     SUB.L    D4,D7            ;6D4: 9E84
  689.     SUB.L    D4,D7            ;6D6: 9E84
  690.     BRA.S    LAB_0068        ;6D8: 60F6
  691. LAB_0069:
  692.     MOVEQ    #0,D5            ;6DA: 7A00
  693.     MOVE.L    #$EC916240,D6        ;6DC: 2C3CEC916240
  694.     MOVE.L    #$3243F6A8,D4        ;6E2: 283C3243F6A8
  695.     ASL.L    #3,D7            ;6E8: E787
  696.     BMI.S    LAB_006A        ;6EA: 6B04
  697.     NEG.L    D6            ;6EC: 4486
  698.     NEG.L    D4            ;6EE: 4484
  699. LAB_006A:
  700.     ADD.L    D4,D7            ;6F0: DE84
  701.     LEA    SECSTRT_10,A0        ;6F2: 41F900000B00
  702.     MOVEQ    #23,D1            ;6F8: 7217
  703.     MOVEQ    #-1,D2            ;6FA: 74FF
  704. LAB_006B:
  705.     ADDQ    #1,D2            ;6FC: 5242
  706.     MOVE.L    D5,D3            ;6FE: 2605
  707.     MOVE.L    D6,D4            ;700: 2806
  708.     ASR.L    D2,D3            ;702: E4A3
  709.     ASR.L    D2,D4            ;704: E4A4
  710.     TST.L    D7            ;706: 4A87
  711.     BMI.S    LAB_006C        ;708: 6B0C
  712.     SUB.L    D4,D5            ;70A: 9A84
  713.     ADD.L    D3,D6            ;70C: DC83
  714.     SUB.L    (A0)+,D7        ;70E: 9E98
  715.     DBF    D1,LAB_006B        ;710: 51C9FFEA
  716.     BRA.S    LAB_006D        ;714: 600A
  717. LAB_006C:
  718.     ADD.L    D4,D5            ;716: DA84
  719.     SUB.L    D3,D6            ;718: 9C83
  720.     ADD.L    (A0)+,D7        ;71A: DE98
  721.     DBF    D1,LAB_006B        ;71C: 51C9FFDE
  722. LAB_006D:
  723.     MOVE    28(A7),D1        ;720: 322F001C
  724.     BPL.S    LAB_0070        ;724: 6A24
  725.     ADDQ.B    #1,D1            ;726: 5201
  726.     BNE.S    LAB_0072        ;728: 6632
  727.     BSR.S    LAB_0073        ;72A: 613C
  728.     MOVE.L    D6,D7            ;72C: 2E06
  729.     MOVE.L    D5,D6            ;72E: 2C05
  730.     BSR.S    LAB_0073        ;730: 6136
  731.     BEQ.S    LAB_006F        ;732: 670E
  732.     JSR    LAB_004D        ;734: 4EB90000053E
  733. LAB_006E:
  734.     MOVEM.L    (A7)+,D1-D6/A0        ;73A: 4CDF017E
  735.     ADDQ.L    #2,A7            ;73E: 548F
  736.     RTS                ;740: 4E75
  737. LAB_006F:
  738.     MOVE.L    #$FFFFFF7F,D7        ;742: 2E3CFFFFFF7F
  739.     BRA.S    LAB_006E        ;748: 60F0
  740. LAB_0070:
  741.     BEQ.S    LAB_0071        ;74A: 6702
  742.     MOVE.L    D5,D6            ;74C: 2C05
  743. LAB_0071:
  744.     BSR.S    LAB_0073        ;74E: 6118
  745.     MOVE.L    D6,D7            ;750: 2E06
  746.     TST.B    D7            ;752: 4A07
  747.     MOVEM.L    (A7)+,D1-D6/A0        ;754: 4CDF017E
  748.     ADDQ.L    #2,A7            ;758: 548F
  749.     RTS                ;75A: 4E75
  750. LAB_0072:
  751.     MOVE.L    D5,-(A7)        ;75C: 2F05
  752.     BSR.S    LAB_0073        ;75E: 6108
  753.     MOVE.L    D6,24(A7)        ;760: 2F460018
  754.     MOVE.L    (A7)+,D6        ;764: 2C1F
  755.     BRA.S    LAB_0071        ;766: 60E6
  756. LAB_0073:
  757.     MOVE.L    D6,D4            ;768: 2806
  758.     BMI.S    LAB_0075        ;76A: 6B0C
  759.     CMPI.L    #$000000FF,D6        ;76C: 0C86000000FF
  760.     BHI.S    LAB_0076        ;772: 620A
  761. LAB_0074:
  762.     MOVEQ    #0,D6            ;774: 7C00
  763.     RTS                ;776: 4E75
  764. LAB_0075:
  765.     ASR.L    #8,D4            ;778: E084
  766.     ADDQ.L    #1,D4            ;77A: 5284
  767.     BEQ.S    LAB_0074        ;77C: 67F6
  768. LAB_0076:
  769.     JMP    SECSTRT_9        ;77E: 4EF900000AC8
  770.  
  771.  
  772. SECSTRT_4:
  773.     MOVE.L    D6,-(A7)        ;784: 2F06
  774.     ANDI.B    #$7F,D7            ;786: 0207007F
  775.     JSR    LAB_0084        ;78A: 4EB900000866
  776.     BVS.S    LAB_0078        ;790: 6920
  777.     MOVE.L    D7,-(A7)        ;792: 2F07
  778.     MOVE.L    D7,D6            ;794: 2C07
  779.     MOVE.L    #$80000041,D7        ;796: 2E3C80000041
  780.     JSR    LAB_004D        ;79C: 4EB90000053E
  781.     MOVE.L    (A7)+,D6        ;7A2: 2C1F
  782.     JSR    LAB_004A        ;7A4: 4EB900000526
  783.     BEQ.S    LAB_0078        ;7AA: 6706
  784.     SUBQ.B    #1,D7            ;7AC: 5307
  785.     BVC.S    LAB_0078        ;7AE: 6802
  786.     MOVEQ    #0,D7            ;7B0: 7E00
  787. LAB_0078:
  788.     MOVEM.L    (A7)+,D6        ;7B2: 4CDF0040
  789.     RTS                ;7B6: 4E75
  790. LAB_0079:
  791.     MOVE.L    D6,-(A7)        ;7B8: 2F06
  792.     JSR    LAB_0084        ;7BA: 4EB900000866
  793.     BVS.S    LAB_007B        ;7C0: 692A
  794.     MOVE.L    D7,-(A7)        ;7C2: 2F07
  795.     MOVE.L    D7,D6            ;7C4: 2C07
  796.     MOVE.L    #$80000041,D7        ;7C6: 2E3C80000041
  797.     JSR    LAB_004D        ;7CC: 4EB90000053E
  798.     MOVE.L    (A7),D6            ;7D2: 2C17
  799.     JSR    LAB_004A        ;7D4: 4EB900000526
  800.     BEQ.S    LAB_007A        ;7DA: 6706
  801.     SUBQ.B    #1,D7            ;7DC: 5307
  802.     BVC.S    LAB_007A        ;7DE: 6802
  803.     MOVEQ    #0,D7            ;7E0: 7E00
  804. LAB_007A:
  805.     MOVE.L    D7,D6            ;7E2: 2C07
  806.     MOVE.L    (A7)+,D7        ;7E4: 2E1F
  807.     JSR    LAB_004B        ;7E6: 4EB90000052E
  808. LAB_007B:
  809.     MOVEM.L    (A7)+,D6        ;7EC: 4CDF0040
  810.     RTS                ;7F0: 4E75
  811. LAB_007C:
  812.     MOVE.L    D6,-(A7)        ;7F2: 2F06
  813.     TST.B    D7            ;7F4: 4A07
  814.     BEQ.S    LAB_007D        ;7F6: 6730
  815.     ADDQ.B    #1,D7            ;7F8: 5207
  816.     BVS.S    LAB_007E        ;7FA: 6930
  817.     JSR    LAB_0084        ;7FC: 4EB900000866
  818.     BVS.S    LAB_007F        ;802: 6932
  819.     MOVE.L    D7,-(A7)        ;804: 2F07
  820.     MOVE.L    #$80000041,D6        ;806: 2C3C80000041
  821.     JSR    LAB_004A        ;80C: 4EB900000526
  822.     MOVE.L    D7,-(A7)        ;812: 2F07
  823.     MOVE.L    4(A7),D7        ;814: 2E2F0004
  824.     JSR    LAB_004B        ;818: 4EB90000052E
  825.     MOVE.L    (A7)+,D6        ;81E: 2C1F
  826.     JSR    LAB_004D        ;820: 4EB90000053E
  827.     ADDQ.L    #4,A7            ;826: 588F
  828. LAB_007D:
  829.     MOVE.L    (A7)+,D6        ;828: 2C1F
  830.     RTS                ;82A: 4E75
  831. LAB_007E:
  832.     MOVE.L    #$80000082,D7        ;82C: 2E3C80000082
  833.     ROXR.B    #1,D7            ;832: E217
  834.     BRA.S    LAB_007D        ;834: 60F2
  835. LAB_007F:
  836.     MOVE.L    #$80000041,D7        ;836: 2E3C80000041
  837.     BRA.S    LAB_007D        ;83C: 60EA
  838.     DC.W    $0000            
  839.  
  840.  
  841. SECSTRT_5:
  842.     MOVE    (A7)+,D6        ;840: 3C1F
  843.     TST.B    D6            ;842: 4A06
  844.     BPL.S    LAB_0081        ;844: 6A04
  845.     MOVEQ    #0,D7            ;846: 7E00
  846.     BRA.S    LAB_0082        ;848: 6008
  847. LAB_0081:
  848.     MOVEQ    #-1,D7            ;84A: 7EFF
  849.     LSR.B    #1,D7            ;84C: E20F
  850.     ORI.B    #$02,CCR        ;84E: 003C0002
  851. LAB_0082:
  852.     MOVEM.L    (A7)+,D1-D6/A0        ;852: 4CDF017E
  853.     RTS                ;856: 4E75
  854. LAB_0083:
  855.     MOVE.L    #$80000041,D7        ;858: 2E3C80000041
  856.     LEA    30(A7),A7        ;85E: 4FEF001E
  857.     TST.B    D7            ;862: 4A07
  858.     RTS                ;864: 4E75
  859. LAB_0084:
  860.     MOVEM.L    D1-D6/A0,-(A7)        ;866: 48E77E80
  861.     MOVE    D7,-(A7)        ;86A: 3F07
  862.     BEQ.S    LAB_0083        ;86C: 67EA
  863.     ANDI.B    #$7F,D7            ;86E: 0207007F
  864.     MOVE.L    D7,D2            ;872: 2407
  865.     MOVE.L    #$B8AA3B41,D6        ;874: 2C3CB8AA3B41
  866.     JSR    LAB_004C        ;87A: 4EB900000536
  867.     BVS.S    SECSTRT_5        ;880: 69BE
  868.     MOVE.B    D7,D5            ;882: 1A07
  869.     MOVE.B    D7,D6            ;884: 1C07
  870.     SUBI.B    #$60,D5            ;886: 04050060
  871.     NEG.B    D5            ;88A: 4405
  872.     CMPI.B    #$18,D5            ;88C: 0C050018
  873.     BLE.S    SECSTRT_5        ;890: 6FAE
  874.     CMPI.B    #$20,D5            ;892: 0C050020
  875.     BGE.S    LAB_0085        ;896: 6C22
  876.     LSR.L    D5,D7            ;898: EAAF
  877.     MOVE.B    D7,(A7)            ;89A: 1E87
  878.     LSL.L    D5,D7            ;89C: EBAF
  879.     MOVE.B    D6,D7            ;89E: 1E06
  880.     MOVE.L    #$B1721840,D6        ;8A0: 2C3CB1721840
  881.     JSR    LAB_004C        ;8A6: 4EB900000536
  882.     MOVE.L    D7,D6            ;8AC: 2C07
  883.     MOVE.L    D2,D7            ;8AE: 2E02
  884.     JSR    LAB_004B        ;8B0: 4EB90000052E
  885.     MOVE.L    D7,D2            ;8B6: 2407
  886.     BRA.S    LAB_0086        ;8B8: 6004
  887. LAB_0085:
  888.     CLR.B    (A7)            ;8BA: 4217
  889.     MOVE.L    D2,D7            ;8BC: 2E02
  890. LAB_0086:
  891.     CLR.B    D7            ;8BE: 4207
  892.     SUBI.B    #$43,D2            ;8C0: 04020043
  893.     NEG.B    D2            ;8C4: 4402
  894.     CMPI.B    #$1F,D2            ;8C6: 0C02001F
  895.     BLS.S    LAB_0087        ;8CA: 6302
  896.     MOVEQ    #0,D7            ;8CC: 7E00
  897. LAB_0087:
  898.     LSR.L    D2,D7            ;8CE: E4AF
  899.     MOVEQ    #0,D5            ;8D0: 7A00
  900.     MOVE.L    #$26A3D100,D6        ;8D2: 2C3C26A3D100
  901.     LEA    SECSTRT_11,A0        ;8D8: 41F900000B6C
  902.     MOVEQ    #0,D2            ;8DE: 7400
  903.     MOVEQ    #3,D1            ;8E0: 7203
  904.     BSR.S    LAB_0089        ;8E2: 6136
  905.     SUBQ.L    #4,A0            ;8E4: 5988
  906.     SUBQ    #1,D2            ;8E6: 5342
  907.     MOVEQ    #9,D1            ;8E8: 7209
  908.     BSR.S    LAB_0089        ;8EA: 612E
  909.     SUBQ.L    #4,A0            ;8EC: 5988
  910.     SUBQ    #1,D2            ;8EE: 5342
  911.     MOVEQ    #10,D1            ;8F0: 720A
  912.     BSR.S    LAB_0089        ;8F2: 6126
  913.     TST.B    1(A7)            ;8F4: 4A2F0001
  914.     BPL.S    LAB_0088        ;8F8: 6A04
  915.     NEG.L    D5            ;8FA: 4485
  916.     NEG.B    (A7)            ;8FC: 4417
  917. LAB_0088:
  918.     ADD.L    D5,D6            ;8FE: DC85
  919.     JSR    SECSTRT_9        ;900: 4EB900000AC8
  920.     MOVE.L    D6,D7            ;906: 2E06
  921.     ADD.B    (A7),D7            ;908: DE17
  922.     BMI    SECSTRT_5        ;90A: 6B00FF34
  923.     BEQ    SECSTRT_5        ;90E: 6700FF30
  924.     ADDQ.L    #2,A7            ;912: 548F
  925.     MOVEM.L    (A7)+,D1-D6/A0        ;914: 4CDF017E
  926.     RTS                ;918: 4E75
  927. LAB_0089:
  928.     ADDQ    #1,D2            ;91A: 5242
  929.     MOVE.L    D5,D3            ;91C: 2605
  930.     MOVE.L    D6,D4            ;91E: 2806
  931.     ASR.L    D2,D3            ;920: E4A3
  932.     ASR.L    D2,D4            ;922: E4A4
  933.     TST.L    D7            ;924: 4A87
  934.     BMI.S    LAB_008A        ;926: 6B0C
  935.     ADD.L    D4,D5            ;928: DA84
  936.     ADD.L    D3,D6            ;92A: DC83
  937.     SUB.L    (A0)+,D7        ;92C: 9E98
  938.     DBF    D1,LAB_0089        ;92E: 51C9FFEA
  939.     RTS                ;932: 4E75
  940. LAB_008A:
  941.     SUB.L    D4,D5            ;934: 9A84
  942.     SUB.L    D3,D6            ;936: 9C83
  943.     ADD.L    (A0)+,D7        ;938: DE98
  944.     DBF    D1,LAB_0089        ;93A: 51C9FFDE
  945.     RTS                ;93E: 4E75
  946.  
  947.  
  948. SECSTRT_6:
  949.     TST.B    D7            ;940: 4A07
  950.     BEQ.S    LAB_008D        ;942: 670E
  951.     BPL.S    LAB_008E        ;944: 6A10
  952.     ANDI.B    #$7F,D7            ;946: 0207007F
  953.     BSR.S    LAB_008E        ;94A: 610A
  954. LAB_008C:
  955.     ORI.B    #$02,CCR        ;94C: 003C0002
  956.     RTS                ;950: 4E75
  957. LAB_008D:
  958.     MOVEQ    #-1,D7            ;952: 7EFF
  959.     BRA.S    LAB_008C        ;954: 60F6
  960. LAB_008E:
  961.     MOVEM.L    D1-D6/A0,-(A7)        ;956: 48E77E80
  962.     MOVE.B    D7,-(A7)        ;95A: 1F07
  963.     MOVE.B    #$41,D7            ;95C: 1E3C0041
  964.     MOVE.L    #$80000041,D6        ;960: 2C3C80000041
  965.     MOVE.L    D7,D2            ;966: 2407
  966.     JSR    LAB_004A        ;968: 4EB900000526
  967.     EXG    D7,D2            ;96E: CF42
  968.     JSR    LAB_004B        ;970: 4EB90000052E
  969.     MOVE.L    D2,D6            ;976: 2C02
  970.     JSR    LAB_004D        ;978: 4EB90000053E
  971.     BEQ.S    LAB_0093        ;97E: 674E
  972.     SUBI.B    #$43,D7            ;980: 04070043
  973.     NEG.B    D7            ;984: 4407
  974.     CMPI.B    #$1F,D7            ;986: 0C07001F
  975.     BLS.S    LAB_008F        ;98A: 6302
  976.     MOVEQ    #0,D7            ;98C: 7E00
  977. LAB_008F:
  978.     LSR.L    D7,D7            ;98E: EEAF
  979.     MOVEQ    #0,D6            ;990: 7C00
  980.     MOVE.L    #$20000000,D5        ;992: 2A3C20000000
  981.     LEA    SECSTRT_11,A0        ;998: 41F900000B6C
  982.     MOVEQ    #22,D1            ;99E: 7216
  983.     MOVEQ    #1,D2            ;9A0: 7401
  984.     BRA.S    LAB_0091        ;9A2: 6006
  985. LAB_0090:
  986.     ASR.L    D2,D4            ;9A4: E4A4
  987.     SUB.L    D4,D5            ;9A6: 9A84
  988.     ADD.L    (A0),D6            ;9A8: DC90
  989. LAB_0091:
  990.     MOVE.L    D7,D4            ;9AA: 2807
  991.     MOVE.L    D5,D3            ;9AC: 2605
  992.     ASR.L    D2,D3            ;9AE: E4A3
  993. LAB_0092:
  994.     SUB.L    D3,D7            ;9B0: 9E83
  995.     BPL.S    LAB_0090        ;9B2: 6AF0
  996.     MOVE.L    D4,D7            ;9B4: 2E04
  997.     ADDQ.L    #4,A0            ;9B6: 5888
  998.     ADDQ.B    #1,D2            ;9B8: 5202
  999.     LSR.L    #1,D3            ;9BA: E28B
  1000.     DBF    D1,LAB_0092        ;9BC: 51C9FFF2
  1001.     MOVEQ    #0,D7            ;9C0: 7E00
  1002.     JSR    SECSTRT_9        ;9C2: 4EB900000AC8
  1003.     BEQ.S    LAB_0093        ;9C8: 6704
  1004.     ADDQ.B    #1,D6            ;9CA: 5206
  1005.     MOVE.L    D6,D7            ;9CC: 2E06
  1006. LAB_0093:
  1007.     MOVE.L    D7,D2            ;9CE: 2407
  1008.     MOVEQ    #0,D6            ;9D0: 7C00
  1009.     MOVE.B    (A7)+,D6        ;9D2: 1C1F
  1010.     SUBI.B    #$41,D6            ;9D4: 04060041
  1011.     BEQ.S    LAB_0096        ;9D8: 672C
  1012.     MOVE.B    D6,D1            ;9DA: 1206
  1013.     BPL.S    LAB_0094        ;9DC: 6A02
  1014.     NEG.B    D6            ;9DE: 4406
  1015. LAB_0094:
  1016.     ROR.L    #8,D6            ;9E0: E09E
  1017.     MOVEQ    #71,D5            ;9E2: 7A47
  1018. LAB_0095:
  1019.     ADD.L    D6,D6            ;9E4: DC86
  1020.     DBMI    D5,LAB_0095        ;9E6: 5BCDFFFC
  1021.     MOVE.B    D5,D6            ;9EA: 1C05
  1022.     ANDI.B    #$80,D1            ;9EC: 02010080
  1023.     OR.B    D1,D6            ;9F0: 8C01
  1024.     MOVE.L    #$B1721840,D7        ;9F2: 2E3CB1721840
  1025.     JSR    LAB_004C        ;9F8: 4EB900000536
  1026.     MOVE.L    D2,D6            ;9FE: 2C02
  1027.     JSR    LAB_004A        ;A00: 4EB900000526
  1028. LAB_0096:
  1029.     MOVEM.L    (A7)+,D1-D6/A0        ;A06: 4CDF017E
  1030.     RTS                ;A0A: 4E75
  1031. LAB_0097:
  1032.     JSR    SECSTRT_6(PC)        ;A0C: 4EBAFF32
  1033.     JSR    LAB_00AF        ;A10: 4EB900000C24
  1034.     MOVE.L    #$DE5BD93F,D6        ;A16: 2C3CDE5BD93F
  1035.     JSR    LAB_004C        ;A1C: 4EB900000536
  1036.     MOVE    D0,CCR            ;A22: 44C0
  1037.     RTS                ;A24: 4E75
  1038.     DC.W    $0000            
  1039.  
  1040.  
  1041. SECSTRT_7:
  1042.     TST.B    D7            ;A28: 4A07
  1043.     BPL.S    LAB_0099        ;A2A: 6A0C
  1044.     ANDI.B    #$7F,D7            ;A2C: 0207007F
  1045.     BSR.S    LAB_0099        ;A30: 6106
  1046.     ORI.B    #$02,CCR        ;A32: 003C0002
  1047.     RTS                ;A36: 4E75
  1048. LAB_0099:
  1049.     JSR    SECSTRT_6        ;A38: 4EB900000940
  1050.     MOVEM.L    D3-D5,-(A7)        ;A3E: 48E71C00
  1051.     JSR    LAB_004C        ;A42: 4EB900000536
  1052.     MOVEM.L    (A7)+,D3-D5        ;A48: 4CDF0038
  1053.     JMP    LAB_0084        ;A4C: 4EF900000866
  1054.     DC.W    $0000            
  1055.  
  1056.  
  1057. SECSTRT_8:
  1058.     ADD.L    D7,D7            ;A54: DE87
  1059.     BEQ.S    LAB_009B        ;A56: 670E
  1060.     EORI.B    #$80,D7            ;A58: 0A070080
  1061.     ASR.B    #1,D7            ;A5C: E207
  1062.     SUBI.B    #$82,D7            ;A5E: 04070082
  1063.     SWAP    D7            ;A62: 4847
  1064.     ROL.L    #7,D7            ;A64: EF9F
  1065. LAB_009B:
  1066.     RTS                ;A66: 4E75
  1067. LAB_009C:
  1068.     SWAP    D7            ;A68: 4847
  1069.     ROR.L    #7,D7            ;A6A: EE9F
  1070.     EORI.B    #$80,D7            ;A6C: 0A070080
  1071.     ADD.B    D7,D7            ;A70: DE07
  1072.     BVS.S    LAB_009E        ;A72: 690C
  1073.     ADDQ.B    #5,D7            ;A74: 5A07
  1074.     BVS.S    LAB_00A3        ;A76: 693E
  1075.     EORI.B    #$80,D7            ;A78: 0A070080
  1076.     ROR.L    #1,D7            ;A7C: E29F
  1077. LAB_009D:
  1078.     RTS                ;A7E: 4E75
  1079. LAB_009E:
  1080.     BCC.S    LAB_00A2        ;A80: 6426
  1081.     CMPI.B    #$7C,D7            ;A82: 0C07007C
  1082.     BEQ.S    LAB_009F        ;A86: 6706
  1083.     CMPI.B    #$7E,D7            ;A88: 0C07007E
  1084.     BNE.S    LAB_00A0        ;A8C: 660C
  1085. LAB_009F:
  1086.     ADDI.B    #$85,D7            ;A8E: 06070085
  1087.     ROR.L    #1,D7            ;A92: E29F
  1088.     TST.B    D7            ;A94: 4A07
  1089.     BNE.S    LAB_009D        ;A96: 66E6
  1090.     BRA.S    LAB_00A1        ;A98: 600A
  1091. LAB_00A0:
  1092.     ANDI    #$FEFF,D7        ;A9A: 0247FEFF
  1093.     TST.L    D7            ;A9E: 4A87
  1094.     BEQ.S    LAB_009D        ;AA0: 67DC
  1095.     TST.B    D7            ;AA2: 4A07
  1096. LAB_00A1:
  1097.     MOVEQ    #0,D7            ;AA4: 7E00
  1098.     BRA.S    LAB_009D        ;AA6: 60D6
  1099. LAB_00A2:
  1100.     CMPI.B    #$FE,D7            ;AA8: 0C0700FE
  1101.     BNE.S    LAB_00A3        ;AAC: 6608
  1102.     LSR.L    #8,D7            ;AAE: E08F
  1103.     LSR.L    #1,D7            ;AB0: E28F
  1104.     BNE.S    LAB_00A5        ;AB2: 660E
  1105.     BRA.S    LAB_00A4        ;AB4: 6002
  1106. LAB_00A3:
  1107.     LSL    #8,D7            ;AB6: E14F
  1108. LAB_00A4:
  1109.     MOVEQ    #-1,D7            ;AB8: 7EFF
  1110.     ROXR.B    #1,D7            ;ABA: E217
  1111.     ORI.B    #$02,CCR        ;ABC: 003C0002
  1112.     BRA.S    LAB_009D        ;AC0: 60BC
  1113. LAB_00A5:
  1114.     MOVEQ    #0,D7            ;AC2: 7E00
  1115.     BRA.S    LAB_009D        ;AC4: 60B8
  1116.     DC.W    $0000            
  1117.  
  1118.  
  1119. SECSTRT_9:
  1120.     MOVEQ    #66,D4            ;AC8: 7842
  1121.     TST.L    D6            ;ACA: 4A86
  1122.     BEQ.S    LAB_00AA        ;ACC: 672E
  1123.     BPL.S    LAB_00A7        ;ACE: 6A06
  1124.     NEG.L    D6            ;AD0: 4486
  1125.     MOVE.B    #$C2,D4            ;AD2: 183C00C2
  1126. LAB_00A7:
  1127.     CMPI.L    #$00007FFF,D6        ;AD6: 0C8600007FFF
  1128.     BHI.S    LAB_00A8        ;ADC: 6206
  1129.     SWAP    D6            ;ADE: 4846
  1130.     SUBI.B    #$10,D4            ;AE0: 04040010
  1131. LAB_00A8:
  1132.     ADD.L    D6,D6            ;AE4: DC86
  1133.     DBMI    D4,LAB_00A8        ;AE6: 5BCCFFFC
  1134.     TST.B    D6            ;AEA: 4A06
  1135.     BPL.S    LAB_00A9        ;AEC: 6A0C
  1136.     ADDI.L    #$00000100,D6        ;AEE: 068600000100
  1137.     BCC.S    LAB_00A9        ;AF4: 6404
  1138.     ROXR.L    #1,D6            ;AF6: E296
  1139.     ADDQ.B    #1,D4            ;AF8: 5204
  1140. LAB_00A9:
  1141.     MOVE.B    D4,D6            ;AFA: 1C04
  1142. LAB_00AA:
  1143.     RTS                ;AFC: 4E75
  1144.     DC.W    $0000            
  1145.  
  1146.  
  1147. SECSTRT_10:
  1148.     dc.w    $1921
  1149.     DC.W    $FB54            
  1150. LAB_00AC:
  1151.     DC.W    $0ED6            
  1152.     DC.W    $3382            
  1153.     dc.w    $07D6
  1154.     DC.W    $DD7E            
  1155.     DC.W    $03FA            
  1156.     dc.w    $B753
  1157.     DC.W    $01FF            
  1158.     DC.W    $55BB            
  1159.     DC.W    $00FF            
  1160.     dc.w    $EAAD
  1161.     DC.W    $007F            
  1162.     DC.W    $FD55            
  1163.     DC.W    $003F            
  1164.     DC.W    $FFAA            
  1165.     DC.W    $001F            
  1166.     DC.W    $FFF5            
  1167.     DC.W    $000F            
  1168.     DC.W    $FFFE            
  1169.     DC.W    $0007            
  1170.     DC.W    $FFFF            
  1171.     DC.W    $0003            
  1172.     DC.W    $FFFF            
  1173.     DC.W    $0001            
  1174.     DC.W    $FFFF            
  1175.     DC.W    $0000            
  1176.     DC.W    $FFFF            
  1177.     DC.W    $0000            
  1178.     DC.W    $7FFF            
  1179.     DC.W    $0000            
  1180.     DC.W    $3FFF            
  1181.     DC.W    $0000            
  1182.     DC.W    $1FFF            
  1183.     DC.W    $0000            
  1184.     DC.W    $0FFF            
  1185.     DC.W    $0000            
  1186.     DC.W    $07FF            
  1187.     DC.W    $0000            
  1188.     DC.W    $03FF            
  1189.     DC.W    $0000            
  1190.     DC.W    $01FF            
  1191.     dc.l    $000000FF
  1192.     dc.l    $0000007F
  1193.     dc.l    $0000003F
  1194.     dc.l    $0000001F
  1195.     dc.l    $0000000F
  1196.     dc.l    $00000007
  1197.  
  1198. SECSTRT_11:
  1199.     DC.W    $1193            
  1200.     dc.w    $EA7A
  1201.     DC.W    $082C            
  1202.     DC.W    $577D            
  1203.     DC.W    $0405            
  1204.     DC.W    $6247            
  1205.     DC.W    $0200            
  1206.     DC.W    $AB11            
  1207.     dc.w    $0100
  1208.     dc.l    $15580080
  1209.     dc.l    $00550020
  1210.     DC.W    $000A            
  1211.     dc.l    $00100001
  1212.     DC.W    $0008            
  1213.     dc.l    $00000004
  1214.     dc.l    $00000002
  1215.     dc.l    $00000001
  1216.     dc.l    $00000000
  1217.     dc.w    $8000
  1218.     DC.W    $0000            
  1219.     dc.w    $4000
  1220.     DC.W    $0000            
  1221.     dc.w    $2000
  1222.     DC.W    $0000            
  1223.     dc.w    $1000
  1224.     DC.W    $0000            
  1225.     dc.l    $08000000
  1226.     dc.l    $04000000
  1227.     dc.l    $02000000
  1228.     dc.w    $0100
  1229.     dc.l    $00000080
  1230.     dc.l    $00000040
  1231.     dc.l    $00000020
  1232.  
  1233.  
  1234.     DC.W    $4D43            
  1235.     dc.l    $36383334
  1236.     dc.w    $3320
  1237.     DC.W    $464C            
  1238.     DC.W    $4F41            
  1239.     dc.w    $5449
  1240.     dc.w    $4E47
  1241.     dc.w    $2050
  1242.     DC.W    $4F49            
  1243.     dc.l    $4E542046
  1244.     DC.W    $4952            
  1245.     DC.W    $4D57            
  1246.     DC.W    $4152            
  1247.     DC.W    $4528            
  1248.     DC.W    $4329            
  1249.     dc.w    $2043
  1250.     DC.W    $4F50            
  1251.     dc.w    $5952
  1252.     DC.W    $4947            
  1253.     dc.w    $4854
  1254.     DC.W    $2031            
  1255.     dc.l    $39383120
  1256.     dc.w    $4259
  1257.     dc.w    $204D
  1258.     DC.W    $4F54            
  1259.     DC.W    $4F52            
  1260.     DC.W    $4F4C            
  1261.     DC.W    $4120            
  1262.     DC.W    $494E            
  1263.     DC.W    $432E            
  1264.     DC.W    $0000            
  1265.  
  1266.  
  1267. ENDSKIP:
  1268.     MOVE.L    A6,-(A7)        ;C10: 2F0E
  1269.     MOVEA.L    LAB_0013,A6        ;C12: 2C7900000180
  1270.     MOVEA.L    8(A7),A1        ;C18: 226F0008
  1271.     JSR    -414(A6)        ;C1C: 4EAEFE62
  1272.     MOVEA.L    (A7)+,A6        ;C20: 2C5F
  1273.     RTS                ;C22: 4E75
  1274. LAB_00AF:
  1275.     MOVE.L    A6,-(A7)        ;C24: 2F0E
  1276.     MOVEA.L    LAB_0013,A6        ;C26: 2C7900000180
  1277.     JSR    -528(A6)        ;C2C: 4EAEFDF0
  1278.     MOVEA.L    (A7)+,A6        ;C30: 2C5F
  1279.     RTS                ;C32: 4E75
  1280. LAB_00B0:
  1281.     MOVE.L    A6,-(A7)        ;C34: 2F0E
  1282.     MOVEA.L    LAB_0013,A6        ;C36: 2C7900000180
  1283.     MOVEA.L    8(A7),A1        ;C3C: 226F0008
  1284.     MOVE.L    12(A7),D0        ;C40: 202F000C
  1285.     JSR    -552(A6)        ;C44: 4EAEFDD8
  1286.     MOVEA.L    (A7)+,A6        ;C48: 2C5F
  1287.     RTS                ;C4A: 4E75
  1288.     END
  1289.